<%

Function ranking_atualizar_jogo(conexao, id_jogo)

		str = "Select id_clube_1, id_clube_2, placar_1, placar_2, temporada FROM torneios_jogos where realizado=1 and id="&id_jogo
    	Set rs = conexao.Execute(str)

		if not rs.eof then
			
			DIM id_clube_1, id_clube_2, placar_1, placar_2, temporada
			
			id_clube_1 = rs("id_clube_1")
			id_clube_2 = rs("id_clube_2")
			placar_1 = rs("placar_1")
			placar_2 = rs("placar_2")
			temporada = rs("temporada")
		
			if id_clube_1>0 then ranking_atualizar_clube conexao, id_clube_1, temporada, placar_1, placar_2 
			if id_clube_2>0 then ranking_atualizar_clube conexao, id_clube_2, temporada, placar_2, placar_1 
		
		ENd If
		

End Function

Function ranking_atualizar_clube(conexao, id_clube, temporada, placar_1, placar_2)

		if temporada>0 then
		
			ranking_atualizar_clube_temporada conexao, id_clube, -1, placar_1, placar_2 

		End If
		
		if temporada>=0 then

			ranking_atualizar_clube_temporada conexao, id_clube, temporada, placar_1, placar_2
		
		End If
		

End Function

Function ranking_atualizar_clube_temporada(conexao, id_clube, temporada, placar_1, placar_2)

		DIM jogos, vitorias, empates, golspros, golscontras, maiorserie, serieatual
		DIM resultado, str

		str = "Select * FROM ranking where temporada="&temporada&" AND id_clube="&id_clube
   		Set rs = conexao.Execute(str)
		
		If rs.eof then
		
			ranking_criar conexao, id_clube, temporada 
			Set rs = conexao.Execute(str)
		
		End If
		
		resultado = placar_1-placar_2
		
		jogos = rs("jogos") + 1
		vitorias = rs("vitorias")
		empates = rs("empates")
		golspros = rs("golspros") + placar_1
		golscontras = rs("golscontras") + placar_2
		maiorserie = rs("maiorserie")
		serieatual = rs("serieatual")
		
		if resultado>0 then 
		
				vitorias = vitorias +1
				if serieatual>0 then 
					serieatual = serieatual + 1
				Else
					serieatual=1
				End If
				
		Else If resultado=0 then
		
				empates=empates+1
				serieatual=0
				
			Else
			
				if serieatual<0 then 
					serieatual = serieatual - 1
				Else
					serieatual=-1
				End If
				
			End If
		End If
		
		if serieatual>maiorserie then maiorserie = serieatual
		
		str = "UPDATE ranking SET "
		str = str & "jogos='"&jogos&"', "
		str = str & "vitorias='"&vitorias&"', "
		str = str & "empates='"&empates&"', "
		str = str & "golspros='"&golspros&"', "
		str = str & "golscontras='"&golscontras&"', "
		str = str & "maiorserie='"&maiorserie&"', "
		str = str & "serieatual='"&serieatual&"' "
		str = str & " WHERE temporada="&temporada&" AND id_clube="&id_clube
		Set rsI = conexao.Execute(str)
		

End Function
%>
